/ BBS in a Box 15 / BBS in a box XV-2.iso / Files II / Publish / A / Alpha 5.96.sit / Tcl / UserCode / states.tcl

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0a 73 74 61 74 65 73 | 2e 74 63 6c 00 00 00 00 |..states|.tcl....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 41 4c 46 | 41 01 00 00 00 00 00 00 |.TEXTALF|A.......|
|00000050| 00 00 00 00 00 07 36 00 | 00 01 7e aa 75 e3 0f aa |......6.|..~.u...|
|00000060| 75 e3 0f 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |u.......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 52 ea 00 00 |........|....R...|
|00000080| 23 20 50 65 74 65 2c 0d | 23 20 0d 23 20 54 68 65 |# Pete,.|# .# The|
|00000090| 20 65 6e 63 6c 6f 73 65 | 64 20 54 43 4c 20 70 72 | enclose|d TCL pr|
|000000a0| 6f 63 73 20 69 6d 70 6c | 65 6d 65 6e 74 20 74 68 |ocs impl|ement th|
|000000b0| 65 20 63 61 70 61 62 69 | 6c 69 74 79 20 74 6f 20 |e capabi|lity to |
|000000c0| 73 61 76 65 20 61 6e 64 | 20 72 65 73 74 6f 72 65 |save and| restore|
|000000d0| 20 74 68 65 0d 23 20 63 | 75 72 72 65 6e 74 20 77 | the.# c|urrent w|
|000000e0| 69 6e 64 6f 77 2f 66 69 | 6c 65 20 6c 69 73 74 2e |indow/fi|le list.|
|000000f0| 20 20 49 27 6d 20 73 75 | 72 65 20 69 74 20 6e 65 |  I'm su|re it ne|
|00000100| 65 64 73 20 73 6f 6d 65 | 20 62 65 65 66 69 6e 67 |eds some| beefing|
|00000110| 20 75 70 20 69 6e 20 74 | 68 65 20 61 72 65 61 20 | up in t|he area |
|00000120| 6f 66 0d 23 20 65 72 72 | 6f 72 20 72 65 63 6f 76 |of.# err|or recov|
|00000130| 65 72 79 2c 20 62 75 74 | 20 69 74 27 73 20 77 6f |ery, but| it's wo|
|00000140| 72 6b 65 64 20 77 65 6c | 6c 20 66 6f 72 20 6d 65 |rked wel|l for me|
|00000150| 20 73 6f 20 66 61 72 2e | 0d 23 20 0d 23 20 52 65 | so far.|.# .# Re|
|00000160| 67 61 72 64 73 2c 0d 23 | 20 44 61 76 69 64 0d 23 |gards,.#| David.#|
|00000170| 20 64 61 76 69 64 2e 72 | 6f 67 65 72 73 40 61 6c | david.r|ogers@al|
|00000180| 64 75 73 2e 63 6f 6d 0d | 23 20 64 61 76 69 64 72 |dus.com.|# davidr|
|00000190| 40 68 61 6c 63 79 6f 6e | 2e 63 6f 6d 0d 0d 0d 69 |@halcyon|.com...i|
|000001a0| 66 20 7b 21 5b 73 74 72 | 69 6e 67 20 6c 65 6e 67 |f {![str|ing leng|
|000001b0| 74 68 20 5b 69 6e 66 6f | 20 63 6f 6d 6d 61 6e 64 |th [info| command|
|000001c0| 73 20 66 69 6c 65 4d 65 | 6e 75 50 72 6f 63 34 32 |s fileMe|nuProc42|
|000001d0| 5d 5d 7d 20 7b 0d 09 72 | 65 6e 61 6d 65 20 66 69 |]]} {..r|ename fi|
|000001e0| 6c 65 4d 65 6e 75 50 72 | 6f 63 20 66 69 6c 65 4d |leMenuPr|oc fileM|
|000001f0| 65 6e 75 50 72 6f 63 34 | 32 0d 7d 0d 0d 70 72 6f |enuProc4|2.}..pro|
|00000200| 63 20 66 69 6c 65 4d 65 | 6e 75 50 72 6f 63 20 7b |c fileMe|nuProc {|
|00000210| 6d 65 6e 75 20 69 74 65 | 6d 7d 20 7b 0d 09 69 66 |menu ite|m} {..if|
|00000220| 20 7b 24 69 74 65 6d 20 | 3d 3d 20 22 71 75 69 74 | {$item |== "quit|
|00000230| 22 7d 20 7b 0d 09 09 73 | 61 76 65 53 74 61 74 65 |"} {...s|aveState|
|00000240| 0d 09 7d 0d 09 66 69 6c | 65 4d 65 6e 75 50 72 6f |..}..fil|eMenuPro|
|00000250| 63 34 32 20 24 6d 65 6e | 75 20 24 69 74 65 6d 0d |c42 $men|u $item.|
|00000260| 7d 0d 0d 70 72 6f 63 20 | 72 65 73 74 6f 72 65 4e |}..proc |restoreN|
|00000270| 61 6d 65 64 53 74 61 74 | 65 20 7b 7d 20 7b 0d 09 |amedStat|e {} {..|
|00000280| 67 6c 6f 62 61 6c 20 48 | 4f 4d 45 0d 09 67 6c 6f |global H|OME..glo|
|00000290| 62 61 6c 20 66 6e 61 6d | 65 0d 09 69 66 20 7b 21 |bal fnam|e..if {!|
|000002a0| 66 69 6c 65 20 65 78 69 | 73 74 73 20 22 24 48 4f |file exi|sts "$HO|
|000002b0| 4d 45 3a 53 74 61 74 65 | 73 22 7d 20 7b 0d 09 09 |ME:State|s"} {...|
|000002c0| 6d 65 73 73 61 67 65 20 | 22 4e 6f 20 73 61 76 65 |message |"No save|
|000002d0| 64 20 73 74 61 74 65 73 | 21 22 0d 09 09 72 65 74 |d states|!"...ret|
|000002e0| 75 72 6e 0d 09 7d 0d 09 | 73 65 74 20 66 6e 61 6d |urn..}..|set fnam|
|000002f0| 65 20 5b 6c 69 73 74 70 | 69 63 6b 20 2d 70 20 22 |e [listp|ick -p "|
|00000300| 43 68 6f 6f 73 65 20 74 | 68 65 20 73 74 61 74 65 |Choose t|he state|
|00000310| 20 74 6f 20 72 65 73 74 | 6f 72 65 3a 22 20 5b 67 | to rest|ore:" [g|
|00000320| 6c 6f 62 20 2d 74 20 54 | 45 58 54 20 22 24 48 4f |lob -t T|EXT "$HO|
|00000330| 4d 45 3a 53 74 61 74 65 | 73 3a 2a 22 5d 5d 0d 09 |ME:State|s:*"]]..|
|00000340| 75 70 6c 65 76 65 6c 20 | 23 30 20 7b 0d 09 09 73 |uplevel |#0 {...s|
|00000350| 6f 75 72 63 65 20 24 66 | 6e 61 6d 65 0d 09 7d 0d |ource $f|name..}.|
|00000360| 09 72 65 73 74 6f 72 65 | 53 74 61 74 65 4c 69 73 |.restore|StateLis|
|00000370| 74 0d 7d 0d 0d 0d 70 72 | 6f 63 20 72 65 73 74 6f |t.}...pr|oc resto|
|00000380| 72 65 53 74 61 74 65 20 | 7b 7d 20 7b 0d 09 67 6c |reState |{} {..gl|
|00000390| 6f 62 61 6c 20 48 4f 4d | 45 0d 09 67 6c 6f 62 61 |obal HOM|E..globa|
|000003a0| 6c 20 66 6e 61 6d 65 0d | 09 73 65 74 20 66 6e 61 |l fname.|.set fna|
|000003b0| 6d 65 20 22 24 48 4f 4d | 45 3a 53 74 61 74 65 73 |me "$HOM|E:States|
|000003c0| 3a 53 74 61 74 65 2e 74 | 63 6c 22 0d 09 75 70 6c |:State.t|cl"..upl|
|000003d0| 65 76 65 6c 20 23 30 20 | 7b 0d 09 09 69 66 20 7b |evel #0 |{...if {|
|000003e0| 5b 63 61 74 63 68 20 7b | 73 6f 75 72 63 65 20 24 |[catch {|source $|
|000003f0| 66 6e 61 6d 65 7d 5d 7d | 20 7b 0d 09 09 09 61 6c |fname}]}| {....al|
|00000400| 65 72 74 6e 6f 74 65 20 | 22 45 72 72 6f 72 20 72 |ertnote |"Error r|
|00000410| 65 73 74 6f 72 69 6e 67 | 20 73 74 61 74 65 21 22 |estoring| state!"|
|00000420| 0d 09 09 09 72 65 74 75 | 72 6e 0d 09 09 7d 0d 09 |....retu|rn...}..|
|00000430| 7d 0d 09 72 65 73 74 6f | 72 65 53 74 61 74 65 4c |}..resto|reStateL|
|00000440| 69 73 74 0d 7d 0d 0d 0d | 70 72 6f 63 20 73 61 76 |ist.}...|proc sav|
|00000450| 65 4e 61 6d 65 64 53 74 | 61 74 65 20 7b 7d 20 7b |eNamedSt|ate {} {|
|00000460| 0d 09 67 6c 6f 62 61 6c | 20 48 4f 4d 45 0d 09 73 |..global| HOME..s|
|00000470| 65 74 20 66 6e 61 6d 65 | 20 5b 67 65 74 6c 69 6e |et fname| [getlin|
|00000480| 65 20 22 53 61 76 65 20 | 73 74 61 74 65 20 69 6e |e "Save |state in|
|00000490| 20 66 69 6c 65 3a 22 20 | 22 4e 65 77 53 74 61 74 | file:" |"NewStat|
|000004a0| 65 2e 74 63 6c 22 5d 0d | 09 69 66 20 7b 5b 73 74 |e.tcl"].|.if {[st|
|000004b0| 72 69 6e 67 20 6c 65 6e | 67 74 68 20 24 66 6e 61 |ring len|gth $fna|
|000004c0| 6d 65 5d 20 3e 20 32 37 | 20 7d 20 7b 0d 09 09 61 |me] > 27| } {...a|
|000004d0| 6c 65 72 74 6e 6f 74 65 | 20 22 24 66 6e 61 6d 65 |lertnote| "$fname|
|000004e0| 20 69 73 20 6e 6f 74 20 | 61 20 76 61 6c 69 64 20 | is not |a valid |
|000004f0| 66 69 6c 65 20 6e 61 6d | 65 20 2d 20 74 6f 6f 20 |file nam|e - too |
|00000500| 6c 6f 6e 67 2e 22 0d 09 | 09 72 65 74 75 72 6e 0d |long."..|.return.|
|00000510| 09 7d 0d 09 69 66 20 7b | 5b 73 74 72 69 6e 67 20 |.}..if {|[string |
|00000520| 66 69 72 73 74 20 22 3a | 22 20 24 66 6e 61 6d 65 |first ":|" $fname|
|00000530| 5d 20 21 3d 20 2d 31 7d | 20 7b 0d 09 09 61 6c 65 |] != -1}| {...ale|
|00000540| 72 74 6e 6f 74 65 20 22 | 24 66 6e 61 6d 65 20 69 |rtnote "|$fname i|
|00000550| 73 20 6e 6f 74 20 61 20 | 76 61 6c 69 64 20 66 69 |s not a |valid fi|
|00000560| 6c 65 20 6e 61 6d 65 20 | 2d 20 63 6f 6e 74 61 69 |le name |- contai|
|00000570| 6e 73 20 61 20 27 3a 27 | 2e 22 0d 09 09 72 65 74 |ns a ':'|."...ret|
|00000580| 75 72 6e 0d 09 7d 0d 09 | 73 61 76 65 53 74 61 74 |urn..}..|saveStat|
|00000590| 65 42 79 4e 61 6d 65 20 | 24 66 6e 61 6d 65 0d 7d |eByName |$fname.}|
|000005a0| 0d 0d 70 72 6f 63 20 73 | 61 76 65 53 74 61 74 65 |..proc s|aveState|
|000005b0| 20 7b 7d 20 7b 0d 09 73 | 61 76 65 53 74 61 74 65 | {} {..s|aveState|
|000005c0| 42 79 4e 61 6d 65 20 22 | 53 74 61 74 65 2e 74 63 |ByName "|State.tc|
|000005d0| 6c 22 0d 7d 0d 0d 70 72 | 6f 63 20 73 61 76 65 53 |l".}..pr|oc saveS|
|000005e0| 74 61 74 65 42 79 4e 61 | 6d 65 20 73 74 61 74 65 |tateByNa|me state|
|000005f0| 46 69 6c 65 4e 61 6d 65 | 20 7b 0d 09 67 6c 6f 62 |FileName| {..glob|
|00000600| 61 6c 20 48 4f 4d 45 0d | 0d 09 69 66 20 7b 21 5b |al HOME.|..if {![|
|00000610| 66 69 6c 65 20 65 78 69 | 73 74 73 20 22 24 48 4f |file exi|sts "$HO|
|00000620| 4d 45 3a 53 74 61 74 65 | 73 22 5d 7d 20 7b 0d 09 |ME:State|s"]} {..|
|00000630| 09 6d 6b 64 69 72 20 22 | 24 48 4f 4d 45 3a 53 74 |.mkdir "|$HOME:St|
|00000640| 61 74 65 73 22 0d 09 7d | 0d 09 73 65 74 20 66 6e |ates"..}|..set fn|
|00000650| 61 6d 65 20 22 24 48 4f | 4d 45 3a 53 74 61 74 65 |ame "$HO|ME:State|
|00000660| 73 3a 24 73 74 61 74 65 | 46 69 6c 65 4e 61 6d 65 |s:$state|FileName|
|00000670| 22 0d 09 73 65 74 20 66 | 69 6c 65 69 64 20 5b 6f |"..set f|ileid [o|
|00000680| 70 65 6e 20 24 66 6e 61 | 6d 65 20 22 77 2b 22 5d |pen $fna|me "w+"]|
|00000690| 0d 09 70 75 74 73 20 24 | 66 69 6c 65 69 64 20 22 |..puts $|fileid "|
|000006a0| 70 72 6f 63 20 72 65 73 | 74 6f 72 65 53 74 61 74 |proc res|toreStat|
|000006b0| 65 4c 69 73 74 20 7b 7d | 20 7b 22 0d 09 73 65 74 |eList {}| {"..set|
|000006c0| 20 77 69 6e 4c 69 73 74 | 20 5b 77 69 6e 4e 61 6d | winList| [winNam|
|000006d0| 65 73 20 2d 66 5d 0d 09 | 73 65 74 20 6c 61 73 74 |es -f]..|set last|
|000006e0| 57 69 6e 64 6f 77 20 5b | 65 78 70 72 20 5b 6c 6c |Window [|expr [ll|
|000006f0| 65 6e 67 74 68 20 24 77 | 69 6e 4c 69 73 74 5d 20 |ength $w|inList] |
|00000700| 2d 20 31 5d 0d 09 66 6f | 72 20 7b 73 65 74 20 49 |- 1]..fo|r {set I|
|00000710| 6e 64 65 78 20 24 6c 61 | 73 74 57 69 6e 64 6f 77 |ndex $la|stWindow|
|00000720| 7d 20 7b 24 49 6e 64 65 | 78 20 3e 3d 20 30 7d 20 |} {$Inde|x >= 0} |
|00000730| 7b 69 6e 63 72 20 49 6e | 64 65 78 20 2d 31 7d 20 |{incr In|dex -1} |
|00000740| 7b 0d 09 09 73 65 74 20 | 66 20 5b 6c 69 6e 64 65 |{...set |f [linde|
|00000750| 78 20 24 77 69 6e 4c 69 | 73 74 20 24 49 6e 64 65 |x $winLi|st $Inde|
|00000760| 78 5d 0d 09 09 70 75 74 | 73 20 24 66 69 6c 65 69 |x]...put|s $filei|
|00000770| 64 20 22 09 63 61 74 63 | 68 20 5c 7b 65 64 69 74 |d ".catc|h \{edit|
|00000780| 20 5c 22 24 66 5c 22 5c | 7d 22 0d 09 7d 09 0d 09 | \"$f\"\|}"..}...|
|00000790| 70 75 74 73 20 24 66 69 | 6c 65 69 64 20 22 7d 22 |puts $fi|leid "}"|
|000007a0| 0d 09 63 6c 6f 73 65 20 | 24 66 69 6c 65 69 64 0d |..close |$fileid.|
|000007b0| 0d 7d 0d 0d 0d 0d 00 00 | 00 00 00 00 00 00 00 00 |.}......|........|
|000007c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000800| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 32 |.......L|...L...2|
|00000810| 74 63 6c 22 0d 73 65 74 | 20 61 75 74 6f 5f 69 6e |tcl".set| auto_in|
|00000820| 64 65 78 28 75 70 64 61 | 74 65 29 20 22 24 64 69 |dex(upda|te) "$di|
|00000830| 0a 73 74 61 74 65 73 2e | 74 63 6c 00 02 00 02 00 |.states.|tcl.....|
|00000840| 54 45 58 54 41 4c 46 41 | 00 00 00 00 00 00 00 00 |TEXTALFA|........|
|00000850| 02 00 54 45 58 54 41 4c | 46 41 00 00 00 00 00 00 |..TEXTAL|FA......|
|00000860| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000870| 00 00 aa 75 9c bf 00 00 | 07 36 00 00 01 7e 6e 49 |...u....|.6...~nI|
|00000880| 64 29 20 22 24 64 69 72 | 3a 76 69 2e 74 63 6c 22 |d) "$dir|:vi.tcl"|
|00000890| 0d 73 65 74 20 61 75 74 | 6f 5f 69 6e 64 65 78 28 |.set aut|o_index(|
|000008a0| 61 64 64 4d 6f 64 65 29 | 20 22 24 64 69 72 3a 76 |addMode)| "$dir:v|
|000008b0| 69 2e 74 63 6c 22 0d 73 | 65 74 20 61 75 74 6f 5f |i.tcl".s|et auto_|
|000008c0| 69 6e 64 65 78 28 76 69 | 43 6d 64 4d 6f 64 65 29 |index(vi|CmdMode)|
|000008d0| 20 22 24 64 69 72 3a 76 | 69 2e 74 63 6c 22 0d 73 | "$dir:v|i.tcl".s|
|000008e0| 65 74 20 61 75 74 6f 5f | 69 6e 64 65 78 28 73 65 |et auto_|index(se|
|000008f0| 74 56 69 4d 6f 64 65 29 | 20 22 24 64 69 72 3a 76 |tViMode)| "$dir:v|
|00000900| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 00 00 dd |...H..Mo|naco....|
|00000910| c7 e8 00 00 00 00 00 f4 | c7 7e 00 03 2f 0a 03 0d |........|.~../...|
|00000920| 00 e6 c2 de 00 00 00 04 | 00 04 00 28 00 03 01 ca |........|...(....|
|00000930| 02 79 00 28 00 03 01 ca | 02 79 00 02 b3 b0 00 00 |.y.(....|.y......|
|00000940| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 01 00 |........|........|
|00000950| 00 00 01 4c 00 00 00 4c | 00 00 00 32 00 dd c7 e8 |...L...L|...2....|
|00000960| 10 2a 00 00 00 1c 00 32 | 00 00 4d 50 53 52 00 00 |.*.....2|..MPSR..|
|00000970| 00 0a 03 ed ff ff 00 00 | 00 00 00 de 11 64 00 00 |........|.....d..|
+--------+-------------------------+-------------------------+--------+--------+